﻿Imports Microsoft.VisualBasic

Public Class clsAMLWacthList
    Private objConn As System.Data.OleDb.OleDbConnection
    Private objCmd As System.Data.OleDb.OleDbCommand
    Private strConnString As String = ConfigurationManager.ConnectionStrings("GHBankAMLConnectionString").ConnectionString

    Public Function matchSanction100() As Integer
        Dim ReturnValue As Integer = -1

        objConn = New System.Data.OleDb.OleDbConnection
        objCmd = New System.Data.OleDb.OleDbCommand

        objConn.ConnectionString = strConnString

        objCmd.Connection = objConn
        objCmd.CommandType = System.Data.CommandType.StoredProcedure
        objCmd.CommandText = "kycadmin.PRC_GET_MATCH100"

        Try
            'objCmd.Parameters.Add("i_list_score", System.Data.OleDb.OleDbType.Integer).Value = i_list_score
            'objCmd.Parameters.Add("i_occu_score", System.Data.OleDb.OleDbType.Integer).Value = i_occu_score
            'objCmd.Parameters.Add("i_nation_score", System.Data.OleDb.OleDbType.Integer).Value = i_nation_score
            'objCmd.Parameters.Add("i_adr_country_score", System.Data.OleDb.OleDbType.Integer).Value = i_adr_country_score
            'objCmd.Parameters.Add("i_inc_country_score", System.Data.OleDb.OleDbType.Integer).Value = i_inc_country_score
            'objCmd.Parameters.Add("i_product_score", System.Data.OleDb.OleDbType.Integer).Value = i_product_score
            'objCmd.Parameters.Add("i_service_score", System.Data.OleDb.OleDbType.Integer).Value = i_service_score
            'objCmd.Parameters.Add("i_risk_ass_cdd", System.Data.OleDb.OleDbType.Integer).Value = i_risk_ass_cdd

            'Dim op As New System.Data.OleDb.OleDbParameter()
            'op.OleDbType = System.Data.OleDb.OleDbType.Integer
            'op.Direction = System.Data.ParameterDirection.ReturnValue
            'op.ParameterName = "o_risk_level"
            'objCmd.Parameters.Add(op)

            objCmd.Connection.Open()
            objCmd.ExecuteNonQuery()
            'ReturnValue = CStr(objCmd.Parameters("o_risk_level").Value)
            ReturnValue = CStr(objCmd.Parameters("o_exit").Value)
            objCmd.Connection.Close()

            Return ReturnValue

        Catch ex As Exception

            Return -1
        End Try



    End Function
End Class
